﻿Imports System.Data

Imports Microsoft.VisualStudio.TestTools.UnitTesting

Imports locationTacoInc3



'''<summary>
'''Classe de test pour clsCategorieTest, destinée à contenir tous
'''les tests unitaires clsCategorieTest
'''</summary>
<TestClass()> _
Public Class clsCategorieTest


    Private testContextInstance As TestContext

    '''<summary>
    '''Obtient ou définit le contexte de test qui fournit
    '''des informations sur la série de tests active ainsi que ses fonctionnalités.
    '''</summary>
    Public Property TestContext() As TestContext
        Get
            Return testContextInstance
        End Get
        Set(ByVal value As TestContext)
            testContextInstance = Value
        End Set
    End Property

#Region "Attributs de tests supplémentaires"
    '
    'Vous pouvez utiliser les attributs supplémentaires suivants lors de l'écriture de vos tests :
    '
    'Utilisez ClassInitialize pour exécuter du code avant d'exécuter le premier test dans la classe
    '<ClassInitialize()>  _
    'Public Shared Sub MyClassInitialize(ByVal testContext As TestContext)
    'End Sub
    '
    'Utilisez ClassCleanup pour exécuter du code après que tous les tests ont été exécutés dans une classe
    '<ClassCleanup()>  _
    'Public Shared Sub MyClassCleanup()
    'End Sub
    '
    'Utilisez TestInitialize pour exécuter du code avant d'exécuter chaque test
    '<TestInitialize()>  _
    'Public Sub MyTestInitialize()
    'End Sub
    '
    'Utilisez TestCleanup pour exécuter du code après que chaque test a été exécuté
    '<TestCleanup()>  _
    'Public Sub MyTestCleanup()
    'End Sub
    '
#End Region


    '''<summary>
    '''Test pour prcVoitureDepot
    '''</summary>
    <TestMethod()> _
    Public Sub prcVoitureDepotTest()
        Dim target As clsCategorie = New clsCategorie ' TODO : initialisez à une valeur appropriée
        Dim expected As Double = 0.0! ' TODO : initialisez à une valeur appropriée
        Dim actual As Double
        target.prcVoitureDepot = expected
        actual = target.prcVoitureDepot
        Assert.AreEqual(expected, actual)
        Assert.Inconclusive("Vérifiez l'exactitude de cette méthode de test.")
    End Sub

    '''<summary>
    '''Test pour nomCategorie
    '''</summary>
    <TestMethod()> _
    Public Sub nomCategorieTest()
        Dim target As clsCategorie = New clsCategorie ' TODO : initialisez à une valeur appropriée
        Dim expected As String = String.Empty ' TODO : initialisez à une valeur appropriée
        Dim actual As String
        target.nomCategorie = expected
        actual = target.nomCategorie
        Assert.AreEqual(expected, actual)
        Assert.Inconclusive("Vérifiez l'exactitude de cette méthode de test.")
    End Sub

    '''<summary>
    '''Test pour noCategorie
    '''</summary>
    <TestMethod()> _
    Public Sub noCategorieTest()
        Dim target As clsCategorie = New clsCategorie ' TODO : initialisez à une valeur appropriée
        Dim actual As Integer
        actual = target.noCategorie
        Assert.Inconclusive("Vérifiez l'exactitude de cette méthode de test.")
    End Sub

    '''<summary>
    '''Test pour montantDepot
    '''</summary>
    <TestMethod()> _
    Public Sub montantDepotTest()
        Dim target As clsCategorie = New clsCategorie ' TODO : initialisez à une valeur appropriée
        Dim expected As Double = 0.0! ' TODO : initialisez à une valeur appropriée
        Dim actual As Double
        target.montantDepot = expected
        actual = target.montantDepot
        Assert.AreEqual(expected, actual)
        Assert.Inconclusive("Vérifiez l'exactitude de cette méthode de test.")
    End Sub

    '''<summary>
    '''Test pour kmAvantSurcharge
    '''</summary>
    <TestMethod()> _
    Public Sub kmAvantSurchargeTest()
        Dim target As clsCategorie = New clsCategorie ' TODO : initialisez à une valeur appropriée
        Dim expected As Integer = 0 ' TODO : initialisez à une valeur appropriée
        Dim actual As Integer
        target.kmAvantSurcharge = expected
        actual = target.kmAvantSurcharge
        Assert.AreEqual(expected, actual)
        Assert.Inconclusive("Vérifiez l'exactitude de cette méthode de test.")
    End Sub

    '''<summary>
    '''Test pour coutSurchargeKm
    '''</summary>
    <TestMethod()> _
    Public Sub coutSurchargeKmTest()
        Dim target As clsCategorie = New clsCategorie ' TODO : initialisez à une valeur appropriée
        Dim expected As Double = 0.0! ' TODO : initialisez à une valeur appropriée
        Dim actual As Double
        target.coutSurchargeKm = expected
        actual = target.coutSurchargeKm
        Assert.AreEqual(expected, actual)
        Assert.Inconclusive("Vérifiez l'exactitude de cette méthode de test.")
    End Sub

    '''<summary>
    '''Test pour coutLocationJour
    '''</summary>
    <TestMethod()> _
    Public Sub coutLocationJourTest()
        Dim target As clsCategorie = New clsCategorie ' TODO : initialisez à une valeur appropriée
        Dim expected As Double = 0.0! ' TODO : initialisez à une valeur appropriée
        Dim actual As Double
        target.coutLocationJour = expected
        actual = target.coutLocationJour
        Assert.AreEqual(expected, actual)
        Assert.Inconclusive("Vérifiez l'exactitude de cette méthode de test.")
    End Sub

    '''<summary>
    '''Test pour commentaire
    '''</summary>
    <TestMethod()> _
    Public Sub commentaireTest()
        Dim target As clsCategorie = New clsCategorie ' TODO : initialisez à une valeur appropriée
        Dim expected As String = String.Empty ' TODO : initialisez à une valeur appropriée
        Dim actual As String
        target.commentaire = expected
        actual = target.commentaire
        Assert.AreEqual(expected, actual)
        Assert.Inconclusive("Vérifiez l'exactitude de cette méthode de test.")
    End Sub

    '''<summary>
    '''Test pour assurance
    '''</summary>
    <TestMethod()> _
    Public Sub assuranceTest()
        Dim target As clsCategorie = New clsCategorie ' TODO : initialisez à une valeur appropriée
        Dim expected As Double = 0.0! ' TODO : initialisez à une valeur appropriée
        Dim actual As Double
        target.assurance = expected
        actual = target.assurance
        Assert.AreEqual(expected, actual)
        Assert.Inconclusive("Vérifiez l'exactitude de cette méthode de test.")
    End Sub

    '''<summary>
    '''Test pour ToString
    '''</summary>
    <TestMethod()> _
    Public Sub ToStringTest()
        Dim target As clsCategorie = New clsCategorie ' TODO : initialisez à une valeur appropriée
        Dim expected As String = String.Empty ' TODO : initialisez à une valeur appropriée
        Dim actual As String
        actual = target.ToString
        Assert.AreEqual(expected, actual)
        Assert.Inconclusive("Vérifiez l'exactitude de cette méthode de test.")
    End Sub

    '''<summary>
    '''Test pour supprimer
    '''</summary>
    <TestMethod()> _
    Public Sub supprimerTest()
        Dim target As clsCategorie = New clsCategorie ' TODO : initialisez à une valeur appropriée
        target.supprimer()
        Assert.Inconclusive("Une méthode qui ne retourne pas une valeur ne peut pas être vérifiée.")
    End Sub

    '''<summary>
    '''Test pour enregistrer
    '''</summary>
    <TestMethod()> _
    Public Sub enregistrerTest()
        Dim target As clsCategorie = New clsCategorie ' TODO : initialisez à une valeur appropriée
        target.enregistrer()
        Assert.Inconclusive("Une méthode qui ne retourne pas une valeur ne peut pas être vérifiée.")
    End Sub

    '''<summary>
    '''Test pour Constructeur clsCategorie
    '''</summary>
    <TestMethod()> _
    Public Sub clsCategorieConstructorTest1()
        Dim target As clsCategorie = New clsCategorie
        Assert.Inconclusive("TODO : implémentez le code pour vérifier la cible")
    End Sub

    '''<summary>
    '''Test pour Constructeur clsCategorie
    '''</summary>
    <TestMethod()> _
    Public Sub clsCategorieConstructorTest()
        Dim row As DataRow = Nothing ' TODO : initialisez à une valeur appropriée
        Dim target As clsCategorie = New clsCategorie(row)
        Assert.Inconclusive("TODO : implémentez le code pour vérifier la cible")
    End Sub
End Class
